home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 December / 1987-12.d64 / scr reader.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  708b  |  20 lines
  1. 10 poke 53280,5:poke 53281,5
  2. 20 print"[147][144]the screen reader program included"
  3. 30 print"with the dynamic screen article is a"
  4. 40 print"subroutine intended to be used with"
  5. 50 print"your own programs. the gazette disk does";
  6. 60 print"not contain any dynamic screen files,"
  7. 70 print"therefore this program cannot run from"
  8. 80 print"the menu. the filename on the disk is"
  9. 90 print"dyn scr reader."
  10. 100 ford=1to40:print"[164]";:next
  11. 110 print"    press any key to reload the menu    [146]"
  12. 120 getdh$:if dh$=""then120
  13. 130 if peek(65530)=5 then goto190
  14. 140 poke198,0:wait198,1:getdh$
  15. 150 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  16. 160 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  17. 170 poke53281,15:poke53280,15
  18. 180 printchr$(142)"[145]          reloading the menu[155]":end
  19. 190 sys 65341:end
  20.